Imports OpenAccess

Public Class Query

    Public Shared Function Parents(ByVal scope As IObjectScope) As IQueryResult
        Dim query As String = "Select * from ParentExtent"
        Return scope.GetOqlQuery(query).Execute
    End Function

    Public Shared Function Kids(ByVal scope As IObjectScope) As IQueryResult
        Dim query As String = "Select * from ChildExtent"
        Return scope.GetOqlQuery(query).Execute
    End Function

    Public Shared Function Workshops(ByVal scope As IObjectScope) As IQueryResult
        Dim query As String = "Select * from WorkShopExtent"
        Return scope.GetOqlQuery(query).Execute
    End Function

End Class
